# RanWBPattern for ToolManager using CSH.
# Can be used by DOCKs, APPICONs or CLI
# $VER: RanWBPattern 1.0 15/1/95 Jonathan Benson
#
# Edit it to suit your requirements.
# Faces1.pre, *.pre are presets saved by WBPattern

set _histnum  @rnd( 0 )  #  @mix uses the variable _histnum to generate its
			 # so called `random' selection.
set _histnum  @strright( $_histnum 3 )
# NOTE: Do not allow the following line to exceed it's current length.
#       the randomness will be greatly reduced if you do.
#       I don't know why.  Probably a limit on the function @mix.
set WBPattern  @mix( Faces1.pre Faces2.pre MarbleBack.pre WalPaper.pre WalPaper5.pre WalPaper4.pre WalPaper7.pre )
set WBPattern @strhead( " " $WBPattern )
DH0:Prefs/WBPattern use DH0:Prefs/presets/$WBPattern

# Thanks to the following for CShell:
#     Shell V2.04 (C)Copyright 1986, Matthew Dillon, All Rights Reserved
#     Shell V2.04M-V2.07M by Steve Drew
#     Shell V2.08MI, V3.xxA and V4.xxA by Carlo Borreo & Cesare Dieni
#     Shell V5.xxL by U. Dominik Mueller
#     Shell V5.20+ by Andreas M. Kirchwitz
